Imports Softelvdm.Controls
Imports Softelvdm.SftTabsNET

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ' This sample demonstrates how to populate a tab control and its tab pages
    ' with controls. Of course, it's possible (and easier) to do this at design-time
    ' without the need to write code!
    ' To prepare for this sample, create a new project with a blank form and add
    ' a SftTabs/NET control named sftTabs1.
    ' In addition, adjust the following FromFile methods to use a (small) bitmap
    ' that is located on your system.

    Dim img1 As Image = Bitmap.FromFile("..\\..\\test1.png")
    Dim img2 As Image = Bitmap.FromFile("..\\..\\test2.png")

    sftTabs1.Initializing = True

    ' Tab 1 with a listbox
    Dim tb As TabClass = sftTabs1.TabCollection.Add()
    tb.Image = img1
    tb.ImagePart.PartAlignment = PartAlignmentEnum.Center
    tb.Text = "Tab &1" + vbCrLf + "with a listbox"
    tb.TextPart.PartAlignment = PartAlignmentEnum.Center
    tb.TextPart.HAlign = HAlignmentOptionalEnum.Center

    Dim listBox As ListBox = New ListBox()
    listBox.Parent = sftTabs1
    listBox.BorderStyle = BorderStyle.Fixed3D
    listBox.IntegralHeight = False
    listBox.Items.Add("listbox item 1")
    listBox.Items.Add("listbox item 2")
    listBox.Items.Add("listbox item 3")
    sftTabs1.SetTab(listBox, 0) ' add it to tab index 0 "Tab 1"

    ' Tab 2 with a text box
    tb = sftTabs1.TabCollection.Add()
    tb.Orientation = OrientationOptionalEnum.Vertical
    tb.Image = img2
    tb.ImagePart.PartAlignment = PartAlignmentEnum.Center
    tb.ImagePart.HAlign = HAlignmentOptionalEnum.Center
    tb.Text = "Tab &2" + vbCrLf + "with a text box"
    tb.TextPart.PartAlignment = PartAlignmentEnum.Center
    tb.TextPart.HAlign = HAlignmentOptionalEnum.Center

    Dim textBox As TextBox = New TextBox()
    textBox.Parent = sftTabs1
    textBox.BorderStyle = BorderStyle.Fixed3D
    textBox.Multiline = True
    textBox.Text = "This" + vbCrLf + "is" + vbCrLf + "a" + vbCrLf + "textbox." + vbCrLf
    sftTabs1.SetTab(textBox, 1) ' add it to tab index 1 "Tab 2"

    ' Make the first tab active
    sftTabs1.Current = 0

    sftTabs1.Initializing = False
End Sub
End Class